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FACILITY: F11ACP Structure Level 1 
i ABSTRACT: 


This routine gets the next 1/0 request from the ACP queue. 
If no requests are queued, it hibernates. 


i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. This routine must be called 
in kernel mode. 


i AUTHOR: Andrew C. Goldstein, CREATION DATE: 19-Dec-1976 17:26 
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Previous revision history moved to F11A.REV 


: H Reduce size of LOCAL_ARB 
i v02=004 ACG38100 Andrew C. Goldstein,  3-Jun-1981 11:45 
1 : Fix granting of SYSPRV to volume owner 
§ v02-003 ACG0167 Andrew C. Goldstein, 7-May-1980 18:50 
5 1! 


LIBRARY SL SRt TORARY 4 18,L52": 
REQUIRE ‘SRCS$:FCPDEF 852°; 


FORWARD ROUTINE 
GET_REQUEST, ! get next FCP request 
GET_CCB; ! get address of CCB of channel 
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GLOBAL ROUTINE GET_REQUEST = 


tee 
' 


FUNCTIONAL DESCRIPTION: 


This routine gets the next we request from the ACP queue. 
If no requests are queued, it hibernates. 


CALLING SEQUENCE: 
GET_REQUEST () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
QUEUVE_HEAD: address of ACP queue block 
IO_CHANNEL: 1/0 channel number 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
CURRENT_UCB: address of UCB of request 
CURRENT_VCB: address of VCB of request 
CURRENT _WINDOW: window of file if accessed 
PRIMARY_FCB: FCB of file if accessed 


ROUTINE VALUE: 
address of request 1/0 packet 


i 
i 
i 
' 
i 
4 
i 
i 
i 
' 
1 
i 
i 
' 
' 
' 
i 
' 
1 
i 
i 
i 
i 
4 
i 
' SIDE EFFECTS: 

1/0 channel assigned to device of request 
1 


BEGIN 


! Note that the ACP queue header must be referenced rou an explicit 

! register. This is to ensure that the REMQUE expression in fact produces 
! an single RENGUE instruction, and is not broken into an instruction 

: sequence that is not interlocked. 


REGISTER 
QUEVE_POINTER : REF BBLOCK; 


LOCAL 
: REF BBLOCK, ' pointer to chase AQB List 
ccB : REF BBLOCK, ' pointer to CCB of i/o channel 
ORB : REF BBLOCK, ‘ pinser to ORB from UCB 
ABD : REF BBLOCKVECTOR L,ABDSC_LENGTHI, 
' pointer to buffer descriptor packet 
PACKET : REF BBLOCK; ! address of new 1/0 packet 
EXTERNAL 
CLEANUP_FLAGS : BITVECTOR, ' cleanup action flags 
QUEUE _HEAD : REF BBLOCK, ! ACP queue List hea 


12 
=$ep-1984 01:06:24  VAX#11 BLiss-32_v4.0-742 - Pi 
b-Se0-1984 9b 0e es NIT LUMGMASTERSCY TiQcokeacETREG.B32:1°"" «24 


FF EUS SOLNTERCARESE_JOTCHTS EQ. 0 


If the REMQUE failed and the mount count in the AQB is zero, this ACP is 
potentially idle. Interlock the 1/0 database and check the queue and the 
count agen. If the ACP is no longer idle, proceed as if nothing had happened. 
If it still is, unhook the AQB from the system AQB List. Once unhooked, the 
ACP can no Longer be found by anyone. Then restore the original UCB of our 
1/0 channel, deassign the channel, and go away. 


BEGIN 
LOCK_I0DB (); 

IF .GUEUVE_POINTERCAQBSB_MNTCNT) EQL 0 

AND |. QUEUE_POINTERLAGBSC_ACPOFLJ EQL QUEUE_POINTERCAQBSL_ACPOFL] 


1 
1 
4 DISK_UCB REF BBLOCK, ! UCB of device ‘SYSS$DISK' 
23 SURRENT UCB REF BBLOCK, ! address of current UCB 
5 4 CURRENT_VCB REF BBLOCK, ! address of Gyrrer vcB 
4 CURRENT_WINDOW REF BBLOCK, ! address of file window 
P Y FCB REF BBLOCK, ! address of file FCB 
LOCAL_ARB BBLOCK, ' local copy of caller's ARB 
¢ 4° CHANNEL ' channel for all 1/0 
40 xE GL_SYSUIC : ADDRESSING_MODE (ABSOLUTE) 
41 i t highest SYSTEM UIC 
¢g 5 IOCSGL_AQBLIST =: REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
rb § ! system AQB Listhead 
45 3 EXTERNAL ROUTINE 
+8 5 0D8 ! interlock system 1/0 database 
4 60 UNLOCK _106B, i unlock system 1/0 database 
rt ) DEALLOCATE; ! deallocate system dynamic memory 
31 es Attempt to dequeue a packet. If unsuccessful, hibernate and try again. 
65 ; 
3g 4] WHILE 1 DO 
22 6 BEGIN 
5 68 QUEVE POINTER = .QUEUE_HEAD; 
28 +4 IF NOT REMQUE ( QUEVE_POINTERCAQBSL_ACPOFLJ, PACKET) 
2 4 THEN EXITLOOP; 
26 Le: 
74 
ie 
7 
§ 
0 
5 


Dele J 


BEGIN 

P = .JOCS$GL_AQBLIST; 

IF .P EOL -GUEUE_POINTER 
nen IOCSGL_AQBLIST = .QUEVE_POINTERCAQBSL_LINK] 


OOO 


wn 


BEGIN 
UNTIL -PCAQBSL LINK] EQL .QUEUE_POINTER 

D0 P = -PLAGB C_LINK); 

PCAQBSL_LINK] = QUEUE _POINTERCAQBSL_LINK); 
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DEALLOCATE (. QUEUE_POINTER); 

CCB = GET CCB (.10-CHANNEL): 

CCBCCCBSL“UCB) = .OISK_UCB; 52 
SDASSGN (THAN = .10_CHANNEL); 5 
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SDELPRC (); 
ND 
ELS 
END 


SHIBER; 
ND; ! end of ACP wait loop 


} First check the type code in the packet. 


E 
UNLOCK_10DB (); 


PACKETCIRPSB_ TYPE) NEQ DYNSC_IRP 
BUG_CHECK (ROTIRPAQB, FATAL; ‘Not IRP pointer in AQB'); 


N 
et up the UCB and VCB pointers and assign the I/0 channel to the UCB. 
heck the type codes on all packets and control blocks. 


URRENT_UCB = .PACKETCIRPSL_UCBI; 
. CURRENT_UCBCUCB$8_ TYPE) NEQ DYNSC_UCB 
EN BUG_CHECK (NOTUCBIRP, FATAL, ‘Not UCB pointer in IRP"); 


RRENT_VCB = CURRENT UCBCUCBSL_VCB); 
. CURRENT VCBCVCB$8_TYPE] NEQ BYNSC_vcB 
EN BUG_CHECK (NOTVCBUCB, FATAL, ‘Not VCB pointer in UCB"); 


z="c =" 


B = GET_CCB (.10_CHANNEL); 
BCCCBSL~UCB) = .CURRENT UCB; ! and assign it by stuffing UCB 
B = .CURRENT_UCBCUCBSL_ORB); 
G 
I 


et the window and FCB addresses if there is a file open on the channel. 
f the low bit of the window pointer is on, ignore the pointer (deaccess pending). 


. (PACKETCIRPSL_WINDJ)< 
EN CURRENT WINDOW = 0; 
. (PACKETCIRPS$L_WIND])<1,2> NEQ 0 
N BUG_CHECK (BADWCBPT, FATAL, ‘Bad WCB pointer in IRP"); 


CURRENT_WINDOW NEQ 0 


oe WINDOW = “Epa 


BEGIN 
IF CURRENT WINDOWCWCBSB8_TYPE] NEQ DYNSC WCB 
THEN BUG_CHECK (NOTWCBIRP, FATAL, ‘Not WCB Pointer in IRP'); 


IF _ .CURRENT WINDOWCWCBSV_NOTFCP) 
THEN BUG_CHECK (NOTFCPWCB, FATAL, ‘Not FCP window in IRP"); 


PRIMARY FCB = . URRENT WINDOUCUCBSL FCB); 
IF .PRIMARY_FCBCFCB$8 TYPE) NEQ DYNSC_FCB 
THe BUG_CHECK (NOTFCBWCB, FATAL, ‘Bad FCB pointer in window'); 


! If this is a normal file processor request (as opposed to a window turn), 
! clear the byte count in the descriptor for the channel window 


TREQ 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 6 
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: poe to inhibit write-back. Also vit, out the Aa ye ree? end 
: rength buffers. Set foe spool file this tae “2. 3 8 70°C 
! This is denoted for ACP functions by not ng ists IRP d ehovene 
: from 1RP L_MEDIA (the Latter containing the spooled dev 2 UCB address. 
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IFf_ .PACKETCIRPSV_COMPLX) 
THEN 


BEGIN 
ABD ig LogVAPTEI. AIBSL_DESCRIPTI; 
ABDLABDSC 


F caBiSe INDO “6B NEB Fo nAPACKETELRPSL MEDIA 
ty HEN CLEANUP_FLAGSECLF_SPOOLFILEJ = 1; 


DWONAVULSWNOOO~ 


wr 


: If there is no buffer packet, the function must be an ACP control function. 
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ELSE 
IF acceTt RP$V_FCODE] GTRU I0$_LOGICAL 
AND .PACKETCIRPSY_FCODE] NEQ 10$"A CPCONTROL 
THEN BUG_ ENECR (NOBUFPCKT, FATAL? ‘Required buffer packet not present’); 
5 e 
5 ! Set the system privilege flag bit, based on the caller's UIC and 
; privileges. 
588 
589 CHSMOVE -_ SC_HEADER, .PACKETCIRPSL_ARBJ, LOCAL_ARB); 
590 2 IF .BBLOCK LOCAL _ARBLARBSQ_ PRIV]. PRVSV_SYSPRV Wa" 
591 OR .BBLOCK CLOCAL-ARBCARB$Q-PRIVI, PIVSV BYPASS 
79 235 OR > (LOCAL AR ARBSL_U ts sere. 16>L -EXESGL SYSUIC 
30 ser THEI ARBCARBSL OIC] EQL * ORBCORBSL OWNER 
Bg Melee 
$7 : CLEANUP FLAGSCCLF_SYSPRV] = 
: 44 BBLOCK CLOCAL_ARBTARBSQ VPRivi: PRVSV_SYSPRV] = 
Be 599 . 
87 00 RETURN .PACKET; 
88 601 
89 0602 1 END; ! end of routine GETREQ 
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BUGS$_NOTUCB'RP, BUGS_NOTVCBUCB 
BUGS BADWCBFT, BUGS _NOTWCBIRP 
BUG$"NOTFC Puce, BUGS_NOTF CBWCB 
BUGS ~NOBUFPCKT 


SCODES ,NOWRT,2 


38 peguest., Save R2,R3,R4,R5,R6,R7,RB,RI,- 


CURRENT ucB 
Oc$scc Aas 131 
CURRENT IN NDOW, R9 
R 


wile HEAD, QUEUE_POINTER 
(QUEUE_PCINTER), PACKET 


R10 


#7 (QUEUE POINTER) 


OCK_10DB 
EVE -POINTER), QUEVE_POINTER 


C$GL_AQBLIST, P 
QUEDE_POINTER 


(QUEUE _POINTER), IOCSGL_AQBLIST 
(P), QUEVE_POINTER 


coueue eg to al 16(P) 


qUEUE So rcere 
, DEALLOCATE 
ANNEL 


i; GET_CCB 
Pe ucB cece) 
iF SYSSDASSGN 
SYSSDELPRC 
$ 


- UNLOCK 10DB 
. SYSSHIBER 


(PACKET), #10 


Bes NOTIRPAQB! 4> 
(PACKET), CURRENT_UCB 
URR NT_UCB, RO 

QCRO) , “#16 
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TREQ 16-Sep-1984 01:06:24 VAX-11 Bliss each 4.0-742 
tet 19-808=1 382 93:98:65 DISKSVMSMASTER: chi F11A.SRCIGETREQ.B32; y oe § 
FEFF 0008 BUGW 3 0524 : 
50 «potds 3 9$ hove nittd Noten RO ; st 
00006 cf 34 i 00 B MOVL Bat oe “CURRENT. vcB : F 
0 00906 CF p B MOVL FUR REN Fvcg, R RO™ + 0527 ; 
11 A AO } C CMPB (RO), "a : ; 
Or rer® o00c BUG : 0528 
ooboe cB . WORD <BUGS NOTVCBUCB!4> : 3 
00006 CF DD O00CD 10$:  PUSHL CHANN + 0530 ; 
0000v CF ®, D1 CALLS f- oer EE ; : 
5 0 D 906 MOVL RO, CCB” : : 
g 68 D D MOVL § CURRENT_UCB, RO + 0531 : 
: D 6 nye MOVL RO, (CCB) : ; 
? 1¢ AO OD DF MOVL (RO), ORB + 053 : 
69 18 A6 DO 00 ES MOVL 4(PACKET), CURRENT_WINDOW : 053 ; 
02 1 ag E9 OO0E BLBC 4(PACKET), 11$ : 0539 ; 
6 b4 OEB CLRL URRENT WINDOW : 0540 : 
06 18 Ab : OED 11$:  BITB 4(PACKET), #6 + 0541 3 
04 13 000F1 BEQL 2$ : : 
FEFF OFS BUGW + 0542 ; 
9000s OF .WORD <BUG$ _BADWCBPT!4> : ; 
50 : 09 OOF? 12$:  MOVL CURR RENT_WINDOW, RO + 0544 ; 
13 QOOFA BEQL 15$ : : 
12 0A AO 91 OO0FC CMPB =s-—«oM10(RO), #18 + 0547 : 
04 13 00100 BEQL 13$ : ; 
Ferr 0102 BUGW : 0548 3 
90 O* 00104 «WORD <BUG$_NOTWCBIRP!4> : F 
50 69 DO 00106 13$: MOVL CURRERT wl NOW, RO : 0550 ; 
04 0B AO 02 £1 00109 BBC #2, 11(R0), ; ; 
Fer 010 BUGW + 0551 : 
0000* 0011 .WORD <BUGS_NOTFCPWCB!4> : ; 
50 69 DO 00112 148:  MOVL sutnby WINDOW, RO : 0553 : 
00006 CF 18 AO DO 0011 MOVL “PRIMARY_FCB : 3 
50 00006 CF DO o118 MOVL # cB, + 0554 ; 
07 0A AO 91 001 CMPB TO(RO), r 3 : 
04 13 91 4 BEQL 15$ ; ; 
FEFF 01 6 BUGW : 0555 ; 
90 O* 001 .WORD  <BUG$ NOTE CBUCB! 4> : : 
16 2A AG 03 £1 0012A 1S$: BBC 42 (PAC ACKET), 16$ : 0566 : 
50 3¢ B6 DO 0012F MOVL Hae (PACKET), ABD : 0569 : 
2 Ad B4 4 3 CLRW ABD : 0570 : 
38 AG 1C Ab i é CPL (PACKET), 56(PACKET) : 0571 : 
00006 CF 80 8F 8 a y BISB2 #128, CLEANUP_FLAGS : 0572 : 
14 11 0014 BRB : 0566 : 
2F 20 Ab 06 00 FD O143 168: CMPZV #0, #6, 32(PACKET), #47 : 0580 ; 
38 20 A 06 06 FD 14 CMPZV #9 #6, 32(PACKET), #56 : 0581 : 
4 1 Bea. ~=sé7$ : : 
Fer 1 BUGW > 0582 : 
00 1 5 WORD <8 G$_NOBUFPCKT!4> ; : 
68 5 8 159 178: MOVC a8 cPacee ye OCAL_ARB 3 9389 3 
1 0 A 4 €E0 001 BBS : ; : 0590 : 
3 A 5 €0 001 BBS ; EEA: ARDS : 0591 ; 
000000006 9F 3A CA 1 0 FD Bf 4! COCAL sadets, @#EXESGL_SYSUIC : 0592 : 


3; Routine Size: 


391 bytes, 


67 


m8" he 
50 


Routine Base: 


SCODES + 0000 


t ite 


1982 92:38:84 DiSkSimsnaStenscl tt 


tag ie ARB+56, (ORB) 


BISB CLEANUP FLAGS#1 
BISB at ehOcat RR 

MOVL 

RET 


0-74 
A.SR 


23GeTREG.B32:1°"° (25 


13 
1b-5¢ -1984 01:06:24 VAX-11 Bliss-32 V4.0-742 Page 10 
1 =300- 1382 93:98:45 DISKSVMSMASTER:CF11A.SRCIGETREQ.B32; 1 . (3 
; Ogee } GLOBAL ROUTINE GET_CCB (CHANNEL) = 
: ite ; hed 
4 $ ] { FUNCTIONAL DESCRIPTION: 
; 35 § 1! This routine returns the address of the channel control block 
: 9 \9 ! associated with the given channel. 
: 300 i ii 
; 01 1 1 ! CALLING SEQUENCE: 
: 8g oie : GET_CCB (ARG1) 
: 304 16 i INPUT PARAMETERS: 
: 305 53 ! ARG1: channel number 
: 0 ih 1 | IMPLICIT INPUTS: 
: 308 01! NONE 
; 309 0621 1! 
3 10 06 ¢ 1 ! OUTPUT PARAMETERS: 
Pe hae 
; ig 0625 1! IMPLICIT OUTPUTS: 
3 14 06 g 1! NONE 
3 315 06 1! 
: \$ 0628 1 ! ROUTINE VALUE: 
. 0629 1! address of CCB 
; 318 0630 1! 
3 19 0631 1 ! SIDE EFFECTS: 
3 0 0635 1! NON 
: 321 Oss 1 | 
Bo REL 
: 325 0637 BEGIN 
: 326 0638 
; iH 3673 LINKAGE 
3 8 40 L_VERIFYCHAN = JSB (REGISTER = 0) : 
° 9 0641 GLOBAL (CCB = 1) 
: 31 eh NOPRESERVE (2, 3, 4, 5); 
; : 4 2 GLOBAL REGISTER 
; 5 ccB = 1: REF BBLOCK; ! CCB address returned 
: 335 . LOCAL 
; 8 STATUS ! status of system call 
; CCB_BASE : REF BBLOCK; ' other copy of CCB address, due to 
: 3} ! faulty flow analysis in BLISS 
: ‘ EXTERNAL ROUTINE 
3 5 IOCSVERIFYCHAN : L_VERIFYCHAN ADDRESSING_MODE (ABSOLUTE); 
3 23 exec routine to find CCB 
: 36 ¢ STATUS = JOCSVERIFYCHAN (. CHANNEL); 
: 5 CCB_BASE = .CCB; 
; 28 IF ROT .STATUS ; 
; 5 THEN BUG_CHECK (INVCHAN, FATAL, ‘Invalid ACP channel number); 


De Se Se Be Se Se Se Se Se HSH Se Se Se Se Se SH SE Se Se Se Fe Ge Se Ge Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Seas te se Se Se Se esas 
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TREQ 16-Sep-1984 01:06:24 VAX-11 Bliss-32 V4.0-742 1 
voe~600 102 360- 1984 93:58:47 DISKSVMSMASTER:CF11A.SRCIGETREQ.B32; ° 9 3) 


2 j END; ! end of routine GET_CCB 


-EXTRN IOCSVERIFYCHAN, BUG$_INVCHAN 


OFFC 00000 ENTRY GET CCB, Save R2,R3,R4,R5,R6,R7,RB,RI,R10,= ; 0603 
50 4 AC p0 00002 MOVL CHANNEL, RO + 0656 
000000906 oF 1 ited JSB GN LOCSVERIFYCHAN : 
4 50 £8 0000C BLBS STATUS, 1$ + 0658 
FEFF OOOOF BUGW + 0659 
0000* 00011 WORD <BUGS INVCHAN! 4> : 
50 51 D0 0015 1$: MOVL BASE, + 0661 
04 00016 RET + 0663 


; Routine Size: 23 bytes, Routine Base: S$CODES + 0187 


2g 0664 
5 0665 1 END 
54 0666 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 414 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


cousenee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 43 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:GETREQ/OBJ=OBJ$:GETREQ MSRC$:GETREQ/UPDATE=(ENHS$:GETREQ) 
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+ 0 data bytes 


; Size: 414 

: Elapsed ii 
; s : : 
: Lines/CPU Min: 

; Lexemes/CPU-Min: 1 
; Memo : 


ry Used: 161 pages 
; Compilation tenplete” 


a a a a a a a a aa caer ran emai ee et a es ated 


AL EQUIPMENT CORPORATION 


AH-BT13A-SE 
DENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


0165 


